home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / contrib / TLI-patch / src-client / wl-tli.c < prev   
Encoding:
C/C++ Source or Header  |  1991-10-06  |  7.3 KB  |  222 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         wl-tcpip.c
  5. * RCS:          $Header: /seq5/u/wolfe/Src/winterp-1.11/src-client/RCS/wl-tli.c,v 1.1 91/04/06 16:15:02 wolfe Exp Locker: wolfe $
  6. * Description:  TCP INET CLIENT to send lisp expressions to WINTERP lisp-server.
  7. *               (this code derived from examples in Sequent DYNIX/ptx ???)
  8. * Author:       David Wolfe, Sequent Computers (after Niels Mayer, HPLabs)
  9. * Created:      Sat Jun 10 02:15:35 1989
  10. * Modified:     Sat Oct  5 23:11:15 1991 (Niels Mayer) mayer@hplnpm
  11. * Language:     C
  12. * Package:      N/A
  13. * Status:       X11r5 contrib tape release
  14. *
  15. * WINTERP Copyright 1989-1991 Hewlett-Packard Company (by Niels Mayer).
  16. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  17. *
  18. * Permission to use, copy, modify, distribute, and sell this software and its
  19. * documentation for any purpose is hereby granted without fee, provided that
  20. * the above copyright notice appear in all copies and that both that
  21. * copyright notice and this permission notice appear in supporting
  22. * documentation, and that the name of Hewlett-Packard and David Betz not be
  23. * used in advertising or publicity pertaining to distribution of the software
  24. * without specific, written prior permission.  Hewlett-Packard and David Betz
  25. * make no representations about the suitability of this software for any
  26. * purpose. It is provided "as is" without express or implied warranty.
  27. *
  28. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  29. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  30. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  31. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  32. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  33. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  34. * PERFORMANCE OF THIS SOFTWARE.
  35. *
  36. * See ./winterp/COPYRIGHT for information on contacting the authors.
  37. * 
  38. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  39. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  40. *
  41. ********************************************************************************
  42. */
  43. static char rcs_identity[] = "@(#)$Header: /seq5/u/wolfe/Src/winterp-1.11/src-client/RCS/wl-tli.c,v 1.1 91/04/06 16:15:02 wolfe Exp Locker: wolfe $";
  44.  
  45. #include <stdio.h>
  46. #include <sys/types.h>
  47. #include <fcntl.h>     
  48. #include <tiuser.h>
  49. #include <netinet/in.h>
  50. #include <netinet/netinet.h>
  51. #include <netdb.h>
  52.  
  53. #include "../src-server/config.h" /* defines DEFAULT_INET_SERVICE_PORT, etc */
  54.  
  55. char *progname = NULL;
  56.  
  57.  
  58. /*******************************************************************************
  59.  * Send <message> to the server via socket <s>
  60.  *******************************************************************************/
  61. void Server_Send(s, message)
  62.      int s;
  63.      char *message;
  64. {
  65.   if (t_snd(s, message, strlen(message), 0) < 0) {
  66.     perror(progname);
  67.     fprintf(stderr, "%s: unable to send() on INET Domain Socket.\n", progname);
  68.     exit(1);
  69.   }
  70. }
  71.  
  72.  
  73. /*******************************************************************************
  74.  * Establish a connection with server process, returning socket descriptor
  75.  * if successful.
  76. *******************************************************************************/
  77. int Server_Connect(serverhost, port)
  78.      char *serverhost;
  79.      ushort port;
  80. {
  81.  
  82.   int fd;            /* connected socket descriptor */
  83.   struct t_call *sndcall;
  84.   struct sockaddr_in *server;
  85.   struct servent *sp;
  86.   struct hostent *hp, *gethostbyname();
  87.     
  88.   /* establish connection */
  89.   if ((fd = t_open(TLI_TCP, O_RDWR, NULL)) < 0) {
  90.     t_error("t_open failed");
  91.     exit(1);
  92.   }
  93.  
  94.   if (t_bind(fd, NULL, NULL) < 0) {
  95.     t_error("t_bind failed");
  96.     exit(2);
  97.   }
  98.  
  99.   if ((sndcall = (struct t_call *)t_alloc(fd, T_CALL, T_ALL)) == NULL) {
  100.     t_error("t_alloc failed");
  101.     exit(3);
  102.   }
  103.  
  104.   hp = gethostbyname(serverhost);
  105.   if (hp == NULL) {
  106.     hp = gethostbyname("localhost");
  107.     if ( hp == NULL ) {
  108.       fprintf(stderr, "gethostbyname failed for %s\n", serverhost);
  109.       exit(3);
  110.     }
  111.   }
  112.  
  113.   server = (struct sockaddr_in *)sndcall->addr.buf;
  114.   server->sin_family = AF_INET;
  115.   server->sin_addr.s_addr = *(unsigned long *)hp->h_addr;
  116.  
  117.   /* select port */
  118.   if (port != 0)
  119.     server->sin_port = htons(port);
  120.   else {
  121.     if ((sp = getservbyname(DEFAULT_INET_SERVICE_NAME, "tcp")) == NULL) {    
  122.       fprintf(stderr, "%s: unable to find \"%s\" in /etc/services.\n",
  123.           progname,
  124.           DEFAULT_INET_SERVICE_NAME);
  125.       exit(1);
  126.     }
  127.     server->sin_port = sp->s_port;
  128.   }
  129.  
  130.   sndcall->addr.len = sizeof(struct sockaddr_in);
  131.     
  132.   if (t_connect(fd, sndcall, NULL) < 0) {
  133.     t_error("t_connect");
  134.     exit(-1);
  135.   }
  136.  
  137.   return(fd);
  138.  
  139. }
  140.  
  141.  
  142. /******************************************************************************
  143.  * Server_Disconnect -- shutdown the connection for further sends. This causes
  144.  * the server to receive an EOF condition after it has received all data from
  145.  * Server_Send().
  146. ******************************************************************************/
  147. void Server_Disconnect(s)
  148.      int s;
  149. {
  150.   /* send disconnect */
  151.   if (t_sndrel(s) < 0) {
  152.     t_error("t_sndrel failed");
  153.     exit(1);
  154.   }
  155. }
  156.  
  157.  
  158. /******************************************************************************
  159.  *
  160.  ******************************************************************************/
  161. main(argc, argv)
  162.      int argc;
  163.      char *argv[];
  164. {
  165.   extern int getopt();        /* proc to get option letter from argv */
  166.   extern char* optarg;        /* arg string being pointed to by getopt() */
  167.   extern int optind;        /* index into argv set by getopt() */
  168.   int opt;            /* option argument */
  169.   char hostname[200];        /* for holding server host name */
  170.   int hostname_given = 0;    /* true if hostname was spec'd by user */
  171.   int s;            /* connected socket desriptor */
  172.   ushort port = 0;        /* port number */
  173.   char* portstr;
  174.   char* hoststr;
  175.  
  176.   progname = argv[0];
  177.  
  178.   while ((opt = getopt(argc, argv, "h:p:")) != EOF)
  179.     switch (opt) {
  180.     case 'h':
  181.       strcpy(hostname, optarg);
  182.       hostname_given = 1;
  183.       break;
  184.     case 'p':
  185.       port = atoi(optarg);
  186.       break;
  187.     case '?':
  188.       fprintf(stderr, "usage: %s [-h hostname] [-p port] [sexpr]\n", progname);
  189.       exit (1);
  190.       break;
  191.     }
  192.  
  193.   if (port == 0) {
  194.     if ((portstr = (char *) getenv(DEFAULT_INET_PORT_ENVVAR)) != NULL) /* DEFAULT_INET_PORT_ENVVAR in "../src-server/config.h" */
  195.       port = (ushort) atoi(portstr);
  196.     else
  197.       port = DEFAULT_INET_SERVICE_PORT; /* default port # for winterp server */
  198.   }
  199.  
  200.   if (hostname_given)
  201.     s = Server_Connect(hostname, port); /* a remote connection w/ host spec'd on command line */
  202.   else {
  203.     if ((hoststr = (char *) getenv(DEFAULT_INET_HOSTADDR_ENVVAR)) != NULL) /* DEFAULT_INET_HOSTADDR_ENVVAR in "../src-server/config.h" */
  204.       s = Server_Connect(hoststr, port); /* use hostname given in environment var */
  205.     else
  206.       s = Server_Connect(NULL, port); /* a local connection -- use loopback */
  207.   }
  208.  
  209.   /*
  210.    * note that due to a bug/feature of winterp, we must send it only
  211.    * one sexp. Here, in the case that multiple args get passed, we also
  212.    * want to ensure that they're whitespace separated for tokenization
  213.    */
  214.   for (; optind < argc; optind++) {
  215.     Server_Send(s, argv[optind]);
  216.     Server_Send(s, " ");
  217.   }
  218.  
  219.   Server_Disconnect(s);
  220.   exit(0);
  221. }
  222.